perm filename LIBPAS.DIF[PAS,SYS] blob
sn#574721 filedate 1981-03-27 generic text, type T, neo UTF8
1) LIBPAS.BKP[PAS,SYS] and 2) LIBPAS.PAS[PAS,SYS] 3-27-81 14:18 pages 1,1
**** File 1) LIBPAS.BKP[PAS,SYS]/1P/7L
1) C00019 00005 (** ENTER ENTER_SWITCH **)
1) C00021 00006 (** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
**** File 2) LIBPAS.PAS[PAS,SYS]/1P/7L
2) C00019 00005 (** insert ENTER_SWITCH **)
2) C00021 00006 (** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/1P/39L
1) C00207 00037 PROGRAM strings, assign, length, pos, substr, concat, getchar, putchar,
1) C00229 00038 PROGRAM dumper, dpcnts
1) C00233 00039 PROGRAM mathruns, psqrt
1) C00235 ENDMK
1) C⊗;
**** File 2) LIBPAS.PAS[PAS,SYS]/1P/39L
2) C00207 00037 PROGRAM strings, assign, length, pos, substr, concat, getchr, putchar,
2) C00230 00038 PROGRAM dumper, dpcnts
2) C00234 00039 PROGRAM mathruns, psqrt
2) C00236 ENDMK
2) C⊗;
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/5P/1L
1) (** ENTER ENTER_SWITCH **)
1) PROCEDURE enter(fname: alfa; fvalue: integer);
1) PROCEDURE enter_switch(ftree: swp);
**** File 2) LIBPAS.PAS[PAS,SYS]/5P/1L
2) (** insert ENTER_SWITCH **)
2) PROCEDURE insert(fname: alfa; fvalue: integer);
2) PROCEDURE enter_switch(ftree: swp);
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/5P/17L
1) BEGIN (* ENTER *)
1) new(new_switch);
**** File 2) LIBPAS.PAS[PAS,SYS]/5P/17L
2) BEGIN (* insert *)
2) new(new_switch);
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/5P/26L
1) END (* ENTER *);
1) (** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
**** File 2) LIBPAS.PAS[PAS,SYS]/5P/26L
1) LIBPAS.BKP[PAS,SYS] and 2) LIBPAS.PAS[PAS,SYS] 3-27-81 14:18 pages 5,5
2) END (* insert *);
2) (** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/6P/164L
1) IF i > 0 THEN enter(buffer,ocval*sign)
1) UNTIL NOT (ch IN ['/',',']) OR ((ch = ',') AND (status <> '(')) OR end_of_switch;
**** File 2) LIBPAS.PAS[PAS,SYS]/6P/164L
2) IF i > 0 THEN insert(buffer,ocval*sign)
2) UNTIL NOT (ch IN ['/',',']) OR ((ch = ',') AND (status <> '(')) OR end_of_switch;
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/7P/97L
1) IF device = 'LPT ' THEN enter('LPT ',0) ;
1) error := (inputfile AND NOT defaulted AND (device = 'LPT ')) OR error;
**** File 2) LIBPAS.PAS[PAS,SYS]/7P/97L
2) IF device = 'LPT ' THEN insert('LPT ',0) ;
2) error := (inputfile AND NOT defaulted AND (device = 'LPT ')) OR error;
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/7P/206L
1) IF device = 'LPT ' THEN enter('LPT ',0) ;
1) error := (inputfile AND NOT defaulted AND (device = 'LPT ')) OR error;
**** File 2) LIBPAS.PAS[PAS,SYS]/7P/206L
2) IF device = 'LPT ' THEN insert('LPT ',0) ;
2) error := (inputfile AND NOT defaulted AND (device = 'LPT ')) OR error;
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/16P/157L
1) IF (gaddr >= ord(accus)) OR
1) (gaddr <= ord(acrpoint(accus↑[0+15B],right))) THEN
1) BEGIN
**** File 2) LIBPAS.PAS[PAS,SYS]/16P/157L
2) IF (gaddr > ord(accus)) OR
2) (gaddr < ord(acrpoint(accus↑[0+15B],right))) THEN
2) BEGIN
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/37P/1L
1) PROGRAM strings, assign, length, pos, substr, concat, getchar, putchar,
1) strlt, strle, streq, strge, strgt, strne, wrtstr, wrtst1;
**** File 2) LIBPAS.PAS[PAS,SYS]/37P/1L
2) PROGRAM strings, assign, length, pos, substr, concat, getchr, putchar,
1) LIBPAS.BKP[PAS,SYS] and 2) LIBPAS.PAS[PAS,SYS] 3-27-81 14:18 pages 37,37
2) strlt, strle, streq, strge, strgt, strne, wrtstr, wrtst1;
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/37P/30L
1) * GETCHAR, PUTCHAR MOVE AROUND PARTS OF STRINGS
1) *
**** File 2) LIBPAS.PAS[PAS,SYS]/37P/30L
2) * getchr, PUTCHAR MOVE AROUND PARTS OF STRINGS
2) *
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/37P/40L
1) * N. B.: SUBSTR, GETCHAR AND PUTCHAR CONTAIN CODE FOR BOUNDARY
1) * CHECKING OF THE START POSITION, WHICH WILL BE SUPERFLUOUS
**** File 2) LIBPAS.PAS[PAS,SYS]/37P/40L
2) * N. B.: SUBSTR, getchr AND PUTCHAR CONTAIN CODE FOR BOUNDARY
2) * CHECKING OF THE START POSITION, WHICH WILL BE SUPERFLUOUS
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/37P/293L
1) * FUNCTION GETCHAR
1) *
**** File 2) LIBPAS.PAS[PAS,SYS]/37P/293L
2) * FUNCTION getchr
2) *
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/37P/298L
1) * GETCHAR IS A PRE-DECLARED FUNCTION
1) * AVAILABLE TO EVERY PASCAL USER.
**** File 2) LIBPAS.PAS[PAS,SYS]/37P/298L
2) * this procedure is known to the user as getchar. the name was
2) * modified to avoid a naming conflict with the sail runtime library.
2) * (6-sep-79. arr.)
2) *
2) * getchr IS A PRE-DECLARED FUNCTION
2) * AVAILABLE TO EVERY PASCAL USER.
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/37P/303L
1) FUNCTION getchar (src: string; srcpos: strgrange; srclen: strgrangeneg): char;
1) VAR
1) ch: char;
1) LIBPAS.BKP[PAS,SYS] and 2) LIBPAS.PAS[PAS,SYS] 3-27-81 14:18 pages 37,37
1) BEGIN (* GETCHAR *)
1) procname := 'GETCHAR';
**** File 2) LIBPAS.PAS[PAS,SYS]/37P/307L
2) FUNCTION getchr (src: string; srcpos: strgrange; srclen: strgrangeneg): char;
2) VAR
2) ch: char;
2) BEGIN (* getchr *)
2) procname := 'GETCHAR';
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/37P/321L
1) getchar := src.strtext[srcpos];
1) END (* GETCHAR *);
1) (**********************************************************************
**** File 2) LIBPAS.PAS[PAS,SYS]/37P/325L
2) getchr := src.strtext[srcpos];
2) END (* getchr *);
2) (**********************************************************************
***************
**** File 1) LIBPAS.BKP[PAS,SYS]/38P/65L
1) call('pcref dmp');
1) END;
**** File 2) LIBPAS.PAS[PAS,SYS]/38P/65L
2) END;
***************